home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr42 / qplay.zip / INTRO.BAS < prev    next >
BASIC Source File  |  1995-02-01  |  1KB  |  39 lines
  1. CLS
  2. LOCATE 10, 20
  3. COLOR 2: PRINT "Turn Volume on SoundBlaster up"
  4. PRINT "                       To hear sound!"
  5. COLOR 4
  6. FOR d = 10 TO 0 STEP -1
  7. LOCATE 12, 30: PRINT d
  8. FOR dl = 1 TO 1800: NEXT dl
  9. NEXT d
  10. SCREEN 13
  11. CLS
  12. J$ = "R5U10BR2R5L5D5R5L5D5R5BR2R5U5L5U5R5BR2R5L5D5R5D5L5R5BR2R5L5U5R5L5U5R5BR4BD10"
  13. B$ = "U10F5L5F5L5BR7U10D10R5U10BR2D10U10F5L5F5BR3U10L5R10"
  14. FOR d = 0 TO 2500: NEXT d
  15. C = 16
  16. FOR X = 10 TO 100
  17. Y = Y + 1
  18. C = C + 1:  IF C > 31 THEN C = 16
  19. DRAW "C" + STR$(C) + "BM" + STR$(X) + "," + STR$(Y) + J$ + B$
  20. LINE (0, 0)-(X, Y), 4: LINE (0, 0)-(X, Y), 4: LINE (0, 0)-(X, Y), 0
  21. LINE (0, 200)-(X, Y), 2:  LINE (0, 200)-(X, Y), 0
  22. LINE (320, 200)-(X, Y), 1:  LINE (320, 200)-(X, Y), 0
  23. NEXT X
  24. FOR d = 0 TO 695: NEXT d
  25. FOR C = 16 TO 31: FOR d = 0 TO 150: NEXT d: COLOR C: LOCATE 13, 14: PRINT "-PREseNTS-": NEXT C
  26. FOR d = 0 TO 3000: NEXT d
  27. SHELL "PLAY INTRO.WAV /Q"
  28. CLS
  29. FOR d = 1 TO 40
  30. X = INT(RND(1) * 320): Y = INT(RND(1) * 200): L = INT(RND(1) * 200) + 25
  31. FOR C = 1 TO 25
  32. CIRCLE (X, Y), C, L + C
  33. NEXT C
  34. NEXT d
  35. SHELL "PLAY DRIPITY.WAV /Q"
  36. SHELL "BITMAP TITLESCR.GIF"
  37. SYSTEM
  38.  
  39.